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Improving Program Performance 


Program performance can be improved in two ways. First the execution time 
can be decreased (it will run faster) and second, the amount of space 
required can be decreased, allowing it to use less RAM. To attain these 
two goals, the following lists can be used as guidelines. The methods of 
improvement in each list are primarily arranged in an order of decreasing 
effectiveness. Therefore the method at the top of a list will have more 
impact than one on the bottom . 

Speeding Up A BASIC Program: 

1. Recode - since BASIC is not a structured language, the code 
written in it tends to be a bit inefficient. After a lot of 
modification it becomes even worse. Thus, spending the time to 
"restructure” the code is worthwhile. 

2. Put frequently called subroutines and FOR/NEXT loops at. the 
start of the program - BASIC starts at the beginning of a 
program to look for a line'number, so any line references' near 
the end will take longer to reach. 

3. For frequently called operations within a loop use in-line code 
rather than subroutines - the program speed can be improved here 
since BASIC spends time adding and removing entries from the run 
time stack. 

4. Make the most frequently changing loop of a nested set the 
deepest - in this way the run time stack will be altered the 
fewest number of times. 

3. Simplify floating point calculations within the loop - if a 

result is obtained by multiplying a constant by a counter, time 
could be saved by changing the operation to an add of a constant. 

6. Try and set up loops as multiple statements on one line - in 
this way the BASIC interpreter will not have to get the next 
line to continue the loop. 

7. Disable the screen display - if visual information is not 
important for a period of time, up to a 30 % time-savings can be 
made with a POKE 559,0. 

8. Use assembly code - time savings can be made by encoding loops 
in assembler and using the USR function. 
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Saving Space In A BASIC Program: 


1) Recode - as mentioned previously, restructuring the program will 
make it more efficient. It will also save space. 

2) Remove remarks - remarks are stored as ATASCII data and merely 
take up space in the running program. 

3) Replace a constant used more than twice with a variable - BASIC 
allocates seven bytes for a constant but only one for a variable 
reference, so six bytes can be saved each time a constant is 
replaced with a variable assigned to that constants value. 

4) Initialize this variable with a read statement - a data statement 
is stored in ATASCII code, one byte per character, whereas an 
assignment statement requires seven bytes for one constant. 

5) Try to convert numbers used once and twice to operations of 
predefined variables - an example is to define Z1 to equal 1, Z2 
to equal 2, and if the number 3 is required, replace it with the 
expression Z1 + Z2. 

6) Set frequently used line numbers (in GOSUB and GOTO) to predefined 
variables - if the line 100 is referenced 50 times, approximately 
300 bytes can be saved by equating Z100 to 100 and referencing 
Z100; 

7) Keep the number of variables to a minimum - each new variable 
entry requires 8 more bytes in the variable value table plus a 
few bytes for its name. 

8) Clean up the value and name tables - variable entries are not 
deleted from the value and name tables even though all references 
to them are removed from the program. To delete the entries 
LIST the program to disk or cassette, type NEW, the ENTER the 
program. 

9) Keep variable names as short as possible - each variable name is 
stored in the name table as ATASCII information. The shorter 
the names, the shorter the table. 

10) Replace text used repeatedly with strings - on screens with a 
lot of text, space can be saved by assigning a string to a 
commonly used set of characters. 

11) Initialize strings with assignment statements - an assignment of 
a string with data in quotes requires less space than a READ 
statement and a CHR$ function. 

12) Concatenate lines into multiple statements - three bytes can be 
saved each time two lines are converted into two statements on 
one line. 



ATARI BASIC 


13) Replace once used subroutines with in-line code - the GOSUB and 
RETURN statements waste bytes if used only once. 

14) Replace numeric arrays with strings if the data values do not 
exceed 233 - numeric array entries require six bytes each, 
whereas string elements only need one. 

. 15) Replace set color statements with POKE commands - this will save 
8 bytes. 


16) Use cursor controls rather than POSITION statements - the 
POSITION statement requires 15 bytes for the X,Y parameters 
whereas the cursor editing characters are one byte each. 

17) Oelete lines of code via program control - see the advanced 
programming techniques section. 

18) Modify the string/array pointer to load predefined data - see 
the advanced programming techniques .section.^_ 


19) Small assembly routines can be stored in'remark statements'--', 
remarks are stored as unchanged ATASCII data. 





BASIC BUG LIST 


Lane Winner 
11/25/80 


1) An input statement with no variable is not flagged as an error* 

2) LPRINT loops cannot be stopped by hitting BREAK. 

3) PRINT A=N0T B locks up the keyboard* 

4) DIM L (10) generates DIM L10). 

5) The following functions have wrong values: 

LOG(O), CLOG(O), LOG(l), CLOG(l), most exponents* 

6) Line editing problem (usually deleting lines) sometimes locks up 
keyboard* 

7) ATN function is wrong in second BASIC cartridge* 

8) Trig functions cannot evaluate N*360 in DEG or N* 3*14159 in RAD 
’where n>=2*5E7 in second BASIC cartridge*’ 

9) A PRINTed CTL R or CTL U character, is treated as a semicolon* 




SINGLE LINE OF TOKEN PROGRAM 


LABEL 

L.OMEM 

VNTP 

VNTD 

VVTP 

STMTAB 

STMCUR 
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RUNSTK 

MEMTOP 


HEX / 
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/ ElrlKEI VARIABLES ARE X,Y$,AND Z() 
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SCALAR 

00|VAR*! C6 BYTE 
11 1 1 

I 40|VAR*1CDISPL]| 
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ARRAY 
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SEE BELOW 
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ARRAY 6 BYTE BCD NUMBER PER ENTRY 
STRING 1 BYTE ATASCII PER ENTRY 








GOSUB 


FOR/ 

NEXT 


\ 


4 BYTES PER ENTRY 

0 , LINE*C2E:] , SAVDEX-l 

16 BYTES PER ENTRY 

LIMITC6-BCD],STEPC6-BCD] 
VAR*,LINE*C2B],SAVDEX-l 


EXAMPLE PROGRAM 
10 REM TOKENS 

20 FOR X=PEEK(130)+PEEK(131 >*256 TO PEEK(140)+PEEK(141)*256-1 
30 PRINT PEEK(X)J" "i * NEXT X a 

EXAMPLE OUTPUT (PARTIALLY FORMATTED FOR READING) 

RUN 

(VNT) 216 (0) 

(VND) 0 (DUMMY) 


(VVT) 

0 

0 

65 

118 

51 

0 

0 

0 











(STM) 

10 

0 

12 

12 

0 

84 

79 

75 

69 

73 

83 

155 

(ATASCII) 
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NOTE - BOXED CHARACTERS APPEAR AS INVERSE VIDEO ON THE SCREEN 





















COMMANDS OPERATORS FUNCTIONS 


HEX 

DEC 

HEX 

DEC 

HEX 

DEC 

00 

0 

REM 

0E 

14 

CNUM CONST] 

3D 

61 

STR$ 

01 

1 

DATA 

OF 

15 

CSTR CONST] 

3E 

62 

CHR* 

02 

2 

INPUT 

10 

16 

II 

3F 

63 

USR 

03 

3 

COLOR 

11 

17 

CNOT USED] 

40 

64 

ASC 

04 

4 

LIST 

12 

18 

t 

41 

65 

UAL 

05 

5 

ENTER 

13 

19 

* 

42 

66 

LEN 

06 

6 

LET 

14 

20 

: CSTMT END] 

43 

67 

ADR 

07 

7 

IF 

15 

21 

♦ 

t 

44 

68 

ATN 

08 

8 

FOR 

16 

22 

CLINE END] 

45 

69 

COS 

0? 

9 

NEXT 

17 

23 

GOTO 

46 

70 

PEEK 

0A, 

10 

GOTO 

18 

24 

GOSUB 

47 

71 

SIN 

0B 

11 

GO TO 

19 

25 

TO 

48 

72 

RND 

OC 

12 

GOSUB 

1A 

26 

STEP 

49 

73 

FRE 

OD 

13 

TRAP 

IB 

27 

THEN 

4A 

74 

EXP 

OE 

14 

BYE 

1C 

28 


4B 

75 

LOG 

OF 

15 

CONT 

ID 

29 

<= CNUMERICS] 

4C 

76 

CLOG 

10 

16 

COM 

IE 

30 

<> 

4D 

77 

SQR 

11 

17 

CLOSE 

IF 

31 

>SS 

4E 

78 

SGN 

12 

18 

CLR 

20 

32 

*Ni 

4F 

79 

ABS 

13 

19 

DEG 

21 

33 

> 

50 

80 

INT ... 

14 

20 

DIM ' 

22 

34 

3S 

51 

81 

PADDLE 

15 

21 

END •••— 

23 

35 

A 

52 

82 

STICK 

16 

22 

NEW 

24 

36 

* 

53 

83 

PTRIG 

17 23 

OPEN 

25 

37 

+ 

54 

84 

STRIG 

18 

24 

LOAD 

26 

38 

- 




19 

25 

SAVE 

27 

39 

/ 




1A 

26 

STATUS 

28 

40 

NOT 




IB 

27 

NOTE 

29 

41 

OR 




1C 

28 

POINT 

2A 

42 

AND 




ID 

29 

XIO 

2B 

43 

( 




IE 

30 

ON 

2C 

44 

> 




IF 

31 

POKE 

2D 

45 

= CARITHM ASSIGN] 




20 

32 

PRINT 

2E 

46 

= CSTRING ASSIGN] 




21 

33 

RAD 

2F 

47 

<= CSTRINGS] 




22 

34 

READ 

30 

48 

<> 




23 

35 

RESTORE 

31 

49 

•s.¬ 




24 

36 

RETURN 

32 

50 

's 




25 

37 

RUN 

33 

51 

> a 




26 

38 

STOP 

34 

52 

= 




27 

39 

POP 

35 

53 

+ CUNARY] 




28 

40 

? 

36 

54 

- 




29 

41 

GET 

37 

55 

( CSTRING LEFT PARENT 



2A 

42 

PUT 

38 

56 

( CARRAY LEFT PARENT 



2B 

43 

GRAPHICS 

39 

57 

( CDIM ARRAY LEFT 

PARENT 


2C 

44 

PLOT 

3A 

58 

( CFUN LEFT PARENT 




2D 

45 

POSITION 

3B 

59 

( CDIM STR LEFT PARENT 



2E 

46 

DOS 

3C 

60 

, CARRAY COMMA] 




2F 

47 

DRAWTO 







30 

48 

SETCOLOR 







31 

49 

LOCATE 







32 

50 

SOUND 







33 

51 

LPRINT 







34 

52 

CSAOE 







35 

53 

CLOAD 







36 

54 

CIMPLIED LET] 







37 

55 

ERROR- CSYNTAXT 










OS 


BASIC 


RAM 


MEMLO 2E7,2E3 


APPMHt 0E,0F 


MEMTOP 2E5,2E6 
SDLST 230,231 


SAVMSC 58,59 


TXTMSC 294,295 


RAMTOP 

RAMSIZ 


6A 1 
2E4 J 




■JSfcj 


PAGE 

SIX 


BASIC 

TOKEN 

PROGRAM 


FREE 

RAM 


DISPLAY 

LIST 


SCREEN 

RAM 


TEXT 

WINDOW 


80,81 


{ 


90,91 
0E, OF 


2E5,2E6 


OS AND BASIC POINTERS (NO DOS PRESENT) 


LOMEM 


MEMTOP 

APHM 

* 




t 

HIMEM 












SPECIALIZED PROGRAM EXAMPLES 


10 REM STRING INITIALIZATION 
20 DIM A$(1000 > 

30 A$a> = "A":A*( 1000)= ,, A M 
40 A*(2>=A* 


10 REM DELETE LINE EXAMPLE 
20 GRAPHICS 0}POSITION 2,4 
30 ? 70J? 80J? 90J? "CONT" 
40 POSITION 2,0 
50 POKE 842,13?STOP 
60 POKE 842,12 
70 REM THESE LINES 
80 REM WILL BE - 
90 REM DELETED 


V GOTO 100 

10 REM STRING/ARRAY SAVE 
15 REM GOTO 10 FOR FIRST RUN 
20 DIM A*(10):A$="WWWWWWWWWW" 

30 STARP=PEEK(140)+PEEK(141)*256 
40 STARP=STARP+10 

50 HI-INT(STARP/256) «l.0=STARP-HI*256 
60 POKE 140,LO:POKE 141,HI 
70 SAVE "DJSTRING":STOP 
10 0 STARP=PEEK(140 > +PEEK(141 >*256 
110 STARP=STARP-10 

120 HI=INT < ST ARP/256)J L0=STARP-HI*256 
130 POKE 140,LO:PQKE 142,L0:P0KE 144,LO 
140 POKE 141,Hi:P0KE 143,Hi;P0KE 145,HI 
150 DIM A*(10> 

160 A$(10,10)="W" 

170 STOP 



5 REM SAVE AND RETRIEVE BCD NUMBERS ON DISK 
10 DIM A(0),B$<6> 

2° B*U,6>=CHR*<32> 

3 VTAB=PEEI( (134’) +PEEK ( 135) *256 
40 POKE VTAB+10,0 
50 OPEN #1,8»'0,"D:TEST" 

60 FOR C=1 TO 15tA(0)=C:? =1=1 NEXT C 
70 CLOSE #1 

80 OPEN #1,4,0»"DJTEST" 

9 0 FOR C=1 TO 15:INPUT *1,B$J.? A(0)JNEXT C 
100 CLOSE #i:end 
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Advanced Programming Techniques 

When the fundamentals of Atari BASIC are understood some interesting 
applications can be written. These can be strictly BASIC operations, 
or they can also involve features of the operating system. 

Example 1 - String Initialization - This program will set all the bytes of 
a string of any length to the same value. 8ASIC copies the first byte of 
the source string into the first byte of the destination string, then the 
second, third, and so on. By making the destination string the second 
byte of the source, the same character can be stored into the entire 
string. 

Example 2 - Delete Lines Of Code - 8y using a feature of the operating 
system, a program can delete or modify lines of code within itself. The 
screen editor can be set to accept data from the screen without user input. 
Thus by first setting up the screen, positioning the cursor to the top, and 
then stopping the program, BASIC will be getting commands that have already 
been entered. 

Example 3 - Saving The String/Array Area - If an array or string is always 
initialized to the same size and data, then an appreciable amount of 
program space can be saved by storing the information during the SAVE and 
then deleting the initialization code for the next run. 

Example 4 - Save BCD Numbers To Disk - Whenever numeric data is written to 
a device it is sent as ATASCII information. This means the number 10 is 
written as an ATASCII 1 followed by a 0. This makes a mess out of fixed 
length records. One way to correct this is to store the six byte BCD 
number to disk directly by equating it to a string, and then writing that 
string. It can be retrieved in the same way. 

Example 5 - Player/Missile Graphics With Strings - A fast way to move 
player/missile graphics data is shown in this example. A dimensioned 
string has its string array area offset value changed to point to the P/M 
graphics area. Writing to this string with an assignment statement will 
now write data into the P/M area at assembly langua^ rates. 


- 18 - 



ICO- REM PLAYER/MISSILE EXAMPLE 
11 0 DIM. Ait- (312) , Bt- (20) 

*20 x=x+i:read a:if ao-i then b* < x,x > =chr$<a>jgoto 120 

0 DATA 0,255,129,129,129,129,129,129,129,129,255,0*-l 
2000 POKE 559,62JPOKE 704,83 
20 20 I=PEEK(1065-165POKE 54279,1 
2030 POKE 53277,3 5 POKE 710,224 
2040 VTAB=F*EEK(134)+PEEK(135)*256 
2050 ATAB=PEEK(140)+PEEK(141)*256 
2060 Ol r FS=I*256+1024-Ai;AB 
2070 HI=INT(OFFS/256ML0=0FFS-HI*256 
2090 POKE VTAB+2,L0:P0KE VTAB+3,HI 
30 0 0 Y-60 JZ=10 0 l 0=1 1 H-l 
40yG0 A*CY,Y+11 )=--£*>:POKE 53248,Z 
4010 Y=Y+VJZ=Z+H 
4020 IF Y>213 OR Y<33 THEN V=-V 
4030 IF Z>206 OR Z<49 THEN H=-H 
4420 GOTO 4000 
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